#!/usr/bin/perl
use strict;
use DBI;

my $db = "DBI:mysql:database=cookbook;host=192.168.37.128;port=3306";
my $userName = "cbuser";
my $userPassword = "cbpass";

my $dbh = DBI->connect( $db, $userName, $userPassword )
  or die "Can't connect\n";
print "connect successfully.\n";

my @tables = $dbh->tables();
print "@tables\n";

$dbh->disconnect();